home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / show / gs503_data.lha / Ghostscript / data / gs_pdf.ps < prev    next >
Text File  |  1997-08-14  |  18KB  |  611 lines
  1. %    Copyright (C) 1994, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % gs_pdf.ps
  19. % ProcSet for PostScript files created by the PDF to PostScript converter.
  20. % This ProcSet requires only a Level 1 interpreter, unless fonts other
  21. % than ordinary Type 1 or Type 3 fonts are involved.
  22.  
  23. % pdf2ps copies this file from %BEGIN to the end.
  24.  
  25. %BEGIN
  26. mark                % patches
  27. /currentglobal { false }
  28. /setglobal { pop }
  29. /packedarray { array astore readonly }
  30. /setcmykcolor {
  31.   1 exch sub
  32.   4 -1 roll 1 exch sub 1 index mul
  33.   4 -1 roll 1 exch sub 2 index mul
  34.   4 -2 roll exch 1 exch sub mul
  35.   setrgbcolor
  36. }
  37. /setpagedevice {
  38.   statusdict /pageparams get exec
  39.   4 index /PageSize .knownget { aload pop 6 -2 roll pop pop 4 2 roll } if
  40.   4 index /Orientation .knownget { 3 -1 roll pop exch } if
  41.   statusdict /setpageparams get exec
  42.   /PageOffset .knownget { aload pop translate } if
  43. }
  44. /setoverprint { pop }
  45. /setstrokeadjust { pop }
  46. /.copydict { dup 3 -1 roll { put dup } forall pop }
  47. /.dicttomark {
  48.   counttomark 2 idiv dup dict begin { def } repeat pop currentdict end
  49. }
  50. /.knownget { 2 copy known { get true } { pop pop false } ifelse }
  51. /.setdefaultscreen { }
  52. counttomark 2 idiv {
  53.   1 index where { pop pop pop } { bind executeonly def } ifelse
  54. } repeat pop
  55.  
  56. currentglobal true setglobal
  57.  
  58. % Define pdfmark.  Don't allow it to be bound in.
  59. % Also don't define it in systemdict, because this leads some Adobe code
  60. % to think this interpreter is a distiller.
  61. % (If this interpreter really is a distiller, don't do this.)
  62. systemdict /pdfmark known not
  63.  { userdict /pdfmark { cleartomark } bind put } if
  64.  
  65. % This ProcSet is designed so that it can be used either to execute PDF
  66. % (the default) or to convert PDF to PostScript.  See ! and ~ below.
  67.  
  68. userdict /GS_PDF_ProcSet 119 dict dup begin
  69.  
  70. % ---------------- Abbreviations ---------------- %
  71.  
  72. /bdef { bind def } bind def
  73.  
  74. % ---------------- Operator execution ---------------- %
  75.  
  76. % We record "operator" names in a dictionary with their argument counts,
  77. % so that they can easily be redefined later to write PostScript in
  78. % addition to (or instead of) being executed.
  79.  
  80. /numargsdict 100 dict def
  81. /!        % <procname> <proc> <numargs> ! -
  82.  { //numargsdict 3 index 3 -1 roll put def
  83.  } bdef
  84. /~        % <procname> <opname> <numargs> ~ -
  85.  { exch cvx 1 packedarray cvx exch !
  86.  } bdef
  87.  
  88. % ---------------- Graphics state stack ---------------- %
  89.  
  90. % PDF adds a number of parameters to the graphics state.
  91. % We implement this by pushing and popping a dictionary
  92. % each time we do a PDF gsave or grestore.
  93. % The keys in this dictionary are as follows:
  94. %    self            % identifies the dictionary as one of ours
  95. %    Show
  96. %    TextOrigin        % origin of current line, in text space
  97. %    TextSaveMatrix        % matrix at time of BT
  98. % (The following correspond directly to PDF state parameters.)
  99. %    FillColor
  100. %    FillColorSpace
  101. %    StrokeColor
  102. %    StrokeColorSpace
  103. %    TextSpacing
  104. %    TextHScaling
  105. %    Leading
  106. %    TextFont
  107. %    TextMatrix
  108. %    TextRise
  109. %    TextRenderingMode
  110. %    WordSpacing
  111.  
  112. /nodict 1 dict def
  113. nodict /self { //nodict } executeonly put
  114. nodict readonly pop
  115.  
  116. /beginpage
  117.  { //nodict 20 dict .copydict begin graphicsbeginpage textbeginpage
  118.  } bdef
  119. /endpage
  120.  { showpage end
  121.  } bdef
  122.  
  123. /graphicsbeginpage { initgraphics  0 g  0 G } bdef
  124.  
  125. /gput        % <value> <key> gput -
  126.  { exch currentdict //nodict eq { /self dup load end 5 dict begin def } if
  127.         % If we're in a Level 1 system, we need to grow the
  128.         % dictionary explicitly.
  129.    currentdict length currentdict maxlength ge %eq
  130.     { currentdict dup length 3 mul 2 idiv 1 add dict .copydict end begin 
  131.     }
  132.    if def
  133.  } bdef
  134.  
  135. /q_
  136.  { gsave //nodict begin
  137.  } bdef
  138. /q /q_ load 0 !
  139. % Some PDF files have excess Q operators!
  140. /Q_
  141.  { currentdict /self .knownget { exec //nodict eq { end grestore } if } if
  142.  } bdef
  143. /Q /Q_ load 0 !
  144.  
  145. % ---------------- Graphics state parameters ---------------- %
  146.  
  147. /d /setdash 2 ~
  148. /i /setflat 1 ~
  149. /j /setlinejoin 1 ~
  150. /J /setlinecap 1 ~
  151. /M /setmiterlimit 1 ~
  152. /w /setlinewidth 1 ~
  153.  
  154. % ---------------- Color setting ---------------- %
  155.  
  156. /fcput        % <color> <colorspace> fcput -
  157.  { /FillColorSpace gput /FillColor gput
  158.  } bdef
  159. /scput        % <color> <colorspace> scput -
  160.  { /StrokeColorSpace gput /StrokeColor gput
  161.  } bdef
  162.  
  163. /csdevgray [/DeviceGray] readonly def
  164. /csdevrgb [/DeviceRGB] readonly def
  165. /csdevcmyk [/DeviceCMYK] readonly def
  166. /nullpattern1 mark
  167.    /PatternType 1 /PaintType 1 /TilingType 3 /BBox [0 0 0 0]
  168.    /XStep 1 /YStep 1 /PaintProc { }
  169. .dicttomark readonly def
  170. /nullpattern2 nullpattern1 dup length dict copy readonly def
  171.  
  172. /CSdict 11 dict dup begin
  173.   /DeviceGray { 0 exch } bdef
  174.   /DeviceRGB { [0 0 0] cvx exch } bdef
  175.   /DeviceCMYK { [0 0 0 1] cvx exch } bdef
  176.   /Indexed
  177.    { dup 1 get csset exch pop
  178.      dup 2 index 1 get eq
  179.       { pop }
  180.       { exch 4 array copy dup 1 4 -1 roll put }
  181.      ifelse 0 exch
  182.     } bdef
  183.   /setcolorrendering where
  184.    { pop
  185.      /CalGray
  186.       { 1 get dup /Gamma .knownget
  187.      { dup length 1 add dict .copydict
  188.        dup /DecodeA 4 -1 roll /exp load 2 packedarray cvx put
  189.          }
  190.     if /CIEBasedA exch 2 array astore 0 exch
  191.       } bdef
  192.      /CalRGB
  193.       { 1 get dup /Gamma known 1 index /Matrix known or
  194.      { dup length 2 add dict .copydict
  195.        dup /Matrix .knownget { 1 index /MatrixABC 3 -1 roll put } if
  196.        dup /Gamma .knownget
  197.         { [ exch { /exp load 2 packedarray cvx } forall
  198.           ] 1 index /DecodeABC 3 -1 roll put
  199.         }
  200.        if
  201.          }
  202.     if /CIEBasedABC exch 2 array astore [0 0 0] cvx exch
  203.       } bdef
  204.      /CalCMYK { pop //csdevcmyk csset } bdef    % not supported yet
  205.    }
  206.    { /CalGray { pop //csdevgray csset } bdef
  207.      /CalRGB { pop //csdevrgb csset } bdef
  208.      /CalCMYK { pop //csdevcmyk csset } bdef
  209.    }
  210.   ifelse
  211.   /Pattern
  212.    { //nullpattern1 1 index type /nametype ne
  213.       { 1 index length 0 ne { pop //nullpattern2 } if
  214.       } if
  215.      matrix makepattern exch
  216.    } bdef
  217. end def
  218. /csset            % <cspace> csset <color> <cspace'>
  219.  { dup dup type /nametype ne { 0 get } if //CSdict exch get exec
  220.  } bdef
  221.  
  222. /g { //csdevgray fcput } 1 !
  223. /G { //csdevgray scput } 1 !
  224. /rg { 3 array astore cvx //csdevrgb fcput } 3 !
  225. /RG { 3 array astore cvx //csdevrgb scput } 3 !
  226. /k { 4 array astore cvx //csdevcmyk fcput } 4 !
  227. /K { 4 array astore cvx //csdevcmyk scput } 4 !
  228. /cs { csset fcput } 1 !
  229. /CS { csset scput } 1 !
  230. % We have to break up sc according to the number of operands.
  231. /sc1 { /FillColor gput } 1 !
  232. /SC1 { /StrokeColor gput } 1 !
  233. /sc2 { /FillColor gput } 2 !
  234. /SC2 { /StrokeColor gput } 2 !
  235. /sc3 { /FillColor load astore pop } 3 !
  236. /SC3 { /StrokeColor load astore pop } 3 !
  237. /sc4 { /FillColor load astore pop } 4 !
  238. /SC4 { /StrokeColor load astore pop } 4 !
  239. /sc5 { /FillColor gput } 5 !
  240. /SC5 { /StrokeColor gput } 5 !
  241.  
  242. % ---------------- Color installation ---------------- %
  243.  
  244. % Establish a given color (and color space) as current.
  245. /setfillcolor { FillColor FillColorSpace setgcolor } def
  246. /setstrokecolor { StrokeColor StrokeColorSpace setgcolor } def
  247. /CIdict mark            % only used for Level 1
  248.   /DeviceGray 1   /DeviceRGB 3   /DeviceCMYK 4
  249.   /CIEBaseA 1   /CIEBaseABC 3   /CIEBasedDEF 3   /CIEBaseDEFG 4
  250. .dicttomark def
  251. /Cdict 11 dict dup begin    % <color...> <colorspace> -proc- -
  252.   /DeviceGray { pop setgray } bdef
  253.   /DeviceRGB { pop setrgbcolor } bdef
  254.   /DeviceCMYK { pop setcmykcolor } bdef
  255.   /CIEBasedA
  256.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse setcolor } bdef
  257.   /CIEBasedABC /CIEBasedA load def
  258.   /CIEBasedDEF /CIEBasedA load def
  259.   /CIEBasedDEFG /CIEBasedA load def
  260.   /Indexed /setcolorspace where
  261.    { pop /CIEBasedA load }
  262.    { /setindexedcolor cvx }
  263.   ifelse def
  264.   /Pattern
  265.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse
  266.      dup /Matrix get makepattern setcolor
  267.    } bdef
  268. end def
  269. /setindexedcolor        % <index> [/Indexed base hival proc|str]
  270.                 %   setindexedcolor - (only used for Level 1)
  271.  { mark 3 -1 roll
  272.    2 index 3 get    % Stack: cspace -mark- index proc|str
  273.    dup type /stringtype eq
  274.     { //CIdict 4 index 1 get 0 get get        % # of components
  275.       dup 4 -1 roll mul exch getinterval { 255 div } forall
  276.     }
  277.     { exec
  278.     }
  279.    ifelse
  280.    counttomark 2 add -2 roll pop
  281.    1 get setgcolor
  282.  } bdef
  283. /setgcolor    % (null | <color...>) <colorspace> setgcolor -
  284.  { 1 index null eq
  285.     { pop pop }
  286.     { dup 0 get //Cdict exch get exec }
  287.    ifelse
  288.  } bdef
  289. /fsexec        % <fillop|strokeop> fsexec -
  290.  {        % Preserve the current point, if any.
  291.     { currentpoint } stopped
  292.     { $error /newerror false put   cvx exec }
  293.     { 3 -1 roll cvx exec moveto }
  294.    ifelse
  295.  } bdef
  296.  
  297. % ---------------- Transformations ---------------- %
  298.  
  299. /cmmatrix matrix def
  300. /cm { //cmmatrix astore concat } 6 !
  301.  
  302. % ---------------- Path creation ---------------- %
  303.  
  304. /m /moveto 2 ~
  305. /l /lineto 2 ~
  306. /c /curveto 6 ~
  307. /h /closepath 0 ~
  308. /v { currentpoint 6 2 roll curveto } 4 !
  309. /y { 2 copy curveto } 4 !
  310. /re
  311.  { 4 2 roll moveto  exch dup 0 rlineto  0 3 -1 roll rlineto  neg 0 rlineto
  312.    closepath
  313.  } 4 !
  314.  
  315. % ---------------- Path painting and clipping ---------------- %
  316.  
  317. /S_ { setstrokecolor /stroke fsexec } bdef
  318. /S { S_ } 0 !
  319. /f { setfillcolor /fill fsexec } 0 !
  320. /f* { setfillcolor /eofill fsexec } 0 !
  321. /n_ { newpath } bdef        % don't allow n_ to get bound in
  322. /n { n_ } 0 !
  323. /s { closepath S_ } 0 !
  324. /B_ { gsave setfillcolor fill grestore S_ } bdef
  325. /B /B_ load 0 !
  326. /b { closepath B_ } 0 !
  327. /B*_ { gsave setfillcolor eofill grestore S_ } bdef
  328. /B* /B*_ load 0 !
  329. /b* { closepath B*_ } 0 !
  330.  
  331. % Clipping:
  332.  
  333. /Wdict 4 dict dup begin
  334. /S_ { gsave setstrokecolor stroke grestore n_ } bdef
  335. /f { gsave setfillcolor fill grestore n_ } 0 !
  336. /f* { gsave setfillcolor eofill grestore n_ } 0 !
  337. /n_ { end clip newpath } bdef
  338. end readonly def
  339. /W { //Wdict begin } 0 !
  340. /W*dict 4 dict dup begin
  341. /S_ { gsave setstrokecolor stroke grestore n_ } bdef
  342. /f { gsave setfillcolor fill grestore n_ } 0 !
  343. /f* { gsave setfillcolor eofill grestore n_ } 0 !
  344. /n_ { end eoclip newpath } bdef
  345. end readonly def
  346. /W* { //W*dict begin } 0 !
  347.  
  348. % ---------------- Images ---------------- %
  349.  
  350. % We mustn't bind these now, since they reference Level 2 operators.
  351. /Is        % <imagedict> Is <imagedict> <datasource>
  352.  { dup /DataSource get string /readstring cvx /currentfile cvx
  353.         % Stack: imagedict string -readstring- -currentfile-
  354.    3 index /FilterProc .knownget
  355.     { dup dup 0 get /ASCIIHexDecode eq exch length 2 eq and
  356.        { pop exch pop /readhexstring cvx exch }
  357.        { exch exec exch exec }
  358.       ifelse
  359.     }
  360.    if 3 1 roll /pop cvx 4 packedarray cvx
  361.  } bdef
  362. /EI { } def    % placeholder, only needed when writing PostScript
  363. % Note that ID* take a dictionary, not separate values;
  364. % ColorSpace must be a name if it has no parameters;
  365. % DataSource is the size of the row buffer in bytes;
  366. % FilterProc is an optional procedure for constructing the decoding filter;
  367. % and ImageMask is required, not optional.
  368. /csimage
  369.  { /setcolorspace where
  370.     { pop dup /ColorSpace get csset setcolorspace pop image }
  371.     { .colorspaceimage }
  372.    ifelse
  373.  } def        % don't bind, because of Level 2
  374. /ID    % <imagedict> ID -
  375.  { Is dup 3 -1 roll dup /ImageMask get
  376.     { setfillcolor dup /Interpolate .knownget not { false } if
  377.        { dup /DataSource 4 -1 roll put /imagemask cvx exec
  378.        }
  379.        {  { /Width /Height /Decode /ImageMatrix }
  380.       { 1 index exch get exch }
  381.      forall pop exch 0 get 0 ne exch
  382.      5 -1 roll imagemask
  383.        }
  384.       ifelse
  385.     }
  386.     { dup /ColorSpace get /DeviceGray eq
  387.       1 index /BitsPerComponent get 8 le and
  388.       1 index /Decode get dup 1 get 1 eq exch 0 get 0 eq and and
  389.       1 index /Interpolate .knownget not { false } if not and
  390.        {  { /Width /Height /BitsPerComponent /ImageMatrix }
  391.       { 1 index exch get exch }
  392.      forall pop 5 -1 roll image
  393.        }
  394.        { dup /DataSource 4 -1 roll put csimage
  395.        }
  396.       ifelse
  397.     }
  398.    ifelse
  399.         % If we were reading with readhexstring,
  400.         % skip the terminating > now.
  401.         % Stack: datasource
  402.    dup type /filetype ne        % array or packedarray
  403.     { dup 2 get /readhexstring eq
  404.        {  { dup 0 get exec read pop (>) 0 get eq { exit } if } loop
  405.        }
  406.       if pop
  407.     }
  408.     { pop
  409.     }
  410.    ifelse EI
  411.  } 1 !
  412. % IDx handles general images.
  413. /IDx    % <imagedict> IDx -
  414.  { Is 1 index /DataSource 3 -1 roll put
  415.    csimage EI
  416.  } 1 !
  417.  
  418. % ---------------- Text control ---------------- %
  419.  
  420. /textbeginpage
  421.  { /TextSpacing 0 def        % 0 Tc
  422.    /TextLeading 0 def        % 0 TL
  423.    /TextRenderingMode 0 def    % 0 Tr
  424.    /TextRise 0 def        % 0 Ts
  425.    /WordSpacing 0 def        % 0 Tw
  426.    /TextHScaling 1.0 def    % 100 Tz
  427.    /TextFont null def
  428.    /Show { showfirst } def
  429.  } bdef
  430.  
  431. % Contrary to the statement in the PDF manual, BT and ET *can* be nested,
  432. % if the CharProc for a Type 3 font does a BT/ET itself.
  433. % Since we always call the CharProc inside a q_/Q_, we simply ensure that
  434. % the text state is saved and restored like the rest of the extended
  435. % graphics state.
  436.  
  437. /settextmatrix
  438.  { TextMatrix concat
  439.    TextHScaling 1 ne { TextHScaling 1 scale } if
  440.    TextRise 0 ne { 0 TextRise translate } if
  441.  } bdef
  442. /settextstate { TextSaveMatrix setmatrix settextmatrix } bdef
  443.  
  444. /BT
  445.  { currentdict /TextMatrix .knownget
  446.     { identmatrix pop }
  447.     { matrix /TextMatrix gput }
  448.    ifelse
  449.    currentdict /TextOrigin .knownget
  450.     { dup 0 0 put 1 0 put }
  451.     { [0 0] cvx /TextOrigin gput }
  452.    ifelse
  453.     { showfirst } /Show gput
  454.    currentdict /TextSaveMatrix .knownget not
  455.     { matrix dup /TextSaveMatrix gput }
  456.    if currentmatrix pop settextmatrix 0 0 moveto
  457.    TextFont dup null eq { pop } { setfont } ifelse
  458.  } bind 0 !
  459. /ET
  460.  { TextSaveMatrix setmatrix
  461.  } bind 0 !
  462. /Tc_ { /TextSpacing gput { showfirst } /Show gput } bdef
  463. /Tc { Tc_ } 1 !
  464. /TL { /TextLeading gput } bind 1 !
  465. /Tr { /TextRenderingMode gput { showfirst } /Show gput } bind 1 !
  466. /Ts { /TextRise gput settextstate } bind 1 !
  467. /Tw_ { /WordSpacing gput { showfirst } /Show gput } bdef
  468. /Tw { Tw_ } 1 !
  469. /Tz { 100 div /TextHScaling gput settextstate } bind 1 !
  470.  
  471. % ---------------- Font control ---------------- %
  472.  
  473. /Tf        % <font> <scale> Tf -
  474.  { dup 1 eq { pop } { scalefont } ifelse
  475.    dup setfont /TextFont gput
  476.  } 2 !
  477.  
  478. % Read a CFF font.
  479. /FRD        % <resdict> <file> FRD -
  480.  { /FontSetInit /ProcSet findresource begin ReadData
  481.  } 2 !
  482.  
  483. % Copy a font, removing its FID.  If changed is true, also remove
  484. % the UniqueID and XUID, if any.  If the original dictionary doesn't have
  485. % the keys being removed, don't copy it.
  486. /.copyfontdict        % <font> <changed> .copyfontdict <dict>
  487.  { 1 index /FID known
  488.    1 index { 2 index /UniqueID known or 2 index /XUID known or } if
  489.     {        % We add 1 to the length just in case the original
  490.         % didn't have a FID.
  491.       exch dup length 1 add dict exch
  492.        {        % Stack: changed newfont key value
  493.      1 index /FID eq 4 index
  494.       { 2 index /UniqueID eq or 2 index /XUID eq or }
  495.      if not { 3 copy put } if pop pop
  496.        }
  497.       forall exch
  498.     }
  499.    if pop
  500.  } bdef
  501.  
  502. % Insert a new Encoding or Metrics into a font if necessary.
  503. % Return a possibly updated font, and a flag to indicate whether
  504. % the font was actually copied.
  505. /.updatefont        % <font> <Encoding|null> <Metrics|null> .updatefont
  506.             %   <font'> <copied>
  507.  { 2 index 4 1 roll
  508.    dup null ne
  509.     { 3 -1 roll true .copyfontdict dup /Metrics 4 -1 roll put exch }
  510.     { pop }
  511.    ifelse
  512.    dup null ne 1 index 3 index /Encoding get ne and
  513.     { exch false .copyfontdict dup /Encoding 4 -1 roll put }
  514.     { pop }
  515.    ifelse exch 1 index ne
  516.  } bdef
  517.  
  518. % ---------------- Text positioning ---------------- %
  519.  
  520. /Td_
  521.  { TextOrigin exch 4 -1 roll add 3 1 roll add
  522.    2 copy /TextOrigin load astore pop moveto
  523.  } bdef
  524. /Td { Td_ } 2 !
  525. /TD { dup neg /TextLeading gput Td_ } 2 !
  526. /T*_ { 0 TextLeading neg Td_ } bdef
  527. /T* { T*_ } 0 !
  528. /Tm
  529.  { TextMatrix astore pop settextstate
  530.    0 0 /TextOrigin load astore pop
  531.    0 0 moveto
  532.  } 6 !
  533.  
  534. % ---------------- Text painting ---------------- %
  535.  
  536. /textrenderingprocs [        % (0 is handled specially)
  537.    { tf } { tS } { tB } { tn }
  538.     % We don't know what the clipping modes mean....
  539.    4 copy
  540. ] readonly def
  541. /setshowstate
  542.  { WordSpacing 0 eq TextSpacing 0 eq and
  543.     { TextRenderingMode 0 eq
  544.        { { setfillcolor show } }
  545.        { { false charpath textrenderingprocs TextRenderingMode get exec } }
  546.       ifelse
  547.     }
  548.     { TextRenderingMode 0 eq
  549.        { WordSpacing 0 eq
  550.           { { setfillcolor TextSpacing exch 0 exch ashow } }
  551.       { TextSpacing 0 eq
  552.          { { setfillcolor WordSpacing exch 0 exch 32 exch widthshow } }
  553.          { { setfillcolor WordSpacing exch TextSpacing exch 0 32 4 2 roll 0 exch awidthshow } }
  554.         ifelse
  555.       }
  556.      ifelse
  557.        }
  558.        { { WordSpacing TextSpacing 2 index
  559.             % Implement the combination of t3 and false charpath.
  560.             % Stack: xword xchar string
  561.        0 1 2 index length 1 sub
  562.         { 2 copy 1 getinterval false charpath
  563.             % Stack: xword xchar string i
  564.           4 copy get 32 eq { add } { exch pop } ifelse 0 rmoveto
  565.           pop
  566.         }
  567.        for pop pop pop pop
  568.        textrenderingprocs TextRenderingMode get exec
  569.      }
  570.        }
  571.       ifelse
  572.     }
  573.    ifelse /Show gput
  574.  } bdef
  575. /showfirst { setshowstate Show } def
  576.  
  577. /Tj { Show } 1 !
  578. /' { T*_ Show } 1 !
  579. /" { exch Tc_ exch Tw_ T*_ Show } 3 !
  580. % TJ expects a mark followed by arguments, not an array.
  581. /TJ
  582.  { counttomark -1 1
  583.     { -1 roll dup type /stringtype eq
  584.        { Show
  585.        }
  586.        { -1000 div
  587.      currentfont /ScaleMatrix .knownget { 0 get mul } if
  588.      0 rmoveto
  589.        }
  590.       ifelse
  591.     }
  592.    for pop
  593. % Adobe implementations don't accept /[, so we don't either.
  594.  } ([) cvn !
  595.  
  596. /tf { setfillcolor currentpoint fill moveto } bdef
  597. /tn { currentpoint newpath moveto } bdef
  598. % For stroking characters, temporarily restore the graphics CTM so that
  599. % the line width will be transformed properly.
  600. /Tmatrix matrix def
  601. /tS
  602.  { setstrokecolor
  603.    currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix stroke
  604.    setmatrix moveto
  605.  } bdef
  606. /tB { gsave tf grestore tS } bdef
  607.  
  608. end readonly put        % GS_PDF_ProcSet
  609.  
  610. setglobal
  611.